10 POKE56,48:POKE55,0:CLR:GOSUB780
20 PRINT""SPC(14)CHR$(14)"[151][208]LEASE [215]AIT[145][145][145][145][145][145][145][145]"
30 FORA=49152TO49999:READB:POKEA,B:C=C+B:NEXT
40 IFC<>104062THENPRINT"[147]DATA ERROR":STOP
50 DATA 173,4,220,141,166,3,169,18,141,5,212,169,100,141,1,212,169,0,133
60 DATA 187,133,188,133,189,173,30,208,32,199,192,169,0,141,167,3,32,85,193
70 DATA 32,15,194,32,254,194,32,182,194,32,15,194,173,120,3,201,250,208,8
80 DATA 169,0,141,162,3,76,152,192,174,167,3,208,114,201,76,176,220,201,69
90 DATA 144,216,169,27,141,163,3,169,37,141,164,3,162,7,173,100,3,205,163
100 DATA 3,144,8,205,164,3,176,3,76,38,192,173,163,3,24,105,24,141,163
110 DATA 3,173,164,3,24,105,24,141,164,3,202,16,219,169,2,141,21,208,173
120 DATA 100,3,56,233,9,162,255,232,56,233,24,176,250,189,175,192,141,162,3
130 DATA 120,169,240,141,26,208,169,49,141,20,3,169,234,141,21,3,169,129,141
140 DATA 13,220,88,96,1,5,2,5,3,5,2,5,1,201,30,240,3,76,38
150 DATA 192,169,4,141,162,3,76,152,192,169,2,141,21,208,169,1,141,28,208
160 DATA 160,7,169,0,153,110,3,136,16,248,169,90,141,101,3,169,230,141,121
170 DATA 3,169,227,141,131,3,169,0,141,40,208,169,12,141,37,208,169,11,141
180 DATA 38,208,169,127,141,13,220,169,214,141,20,3,169,193,141,21,3,169,27
190 DATA 141,17,208,169,129,141,26,208,169,250,141,18,208,169,117,141,100,3,169
200 DATA 130,141,120,3,169,129,141,26,208,96,165,187,208,26,169,127,141,0,220
210 DATA 169,0,141,1,220,173,1,220,201,239,240,1,96,165,189,208,14,230,187
220 DATA 230,189,238,101,3,173,101,3,201,145,240,1,96,169,0,133,187,96,173
230 DATA 165,3,240,24,169,0,133,162,32,189,193,41,63,9,64,197,162,208,252
240 DATA 32,189,193,41,3,170,76,147,193,169,255,141,0,220,169,0,141,1,220
250 DATA 169,254,141,0,220,173,1,220,201,248,176,234,73,255,74,74,74,162,255
260 DATA 232,74,144,252,134,2,189,206,193,133,5,189,210,193,133,6,189,202,193
270 DATA 133,253,169,0,133,254,169,20,133,248,169,224,141,130,3,169,0,133,251
280 DATA 133,252,169,3,141,21,208,96,173,166,3,10,10,56,109,166,3,141,166
290 DATA 3,96,200,250,180,200,5,0,0,248,0,0,0,255,169,1,141,25,208
300 DATA 169,0,133,3,160,7,162,14,185,100,3,157,0,208,185,120,3,157,1
310 DATA 208,185,110,3,10,102,3,185,130,3,153,248,7,202,202,136,16,227,165
320 DATA 3,141,16,208,169,250,141,18,208,230,162,76,188,254,198,247,240,1,96
330 DATA 169,90,133,247,32,39,193,165,253,24,109,140,3,141,140,3,173,120,3
340 DATA 101,254,141,120,3,174,167,3,208,26,201,66,208,22,169,0,133,254,169
350 DATA 50,133,253,165,252,48,6,169,60,133,251,208,4,169,190,133,251,173,150
360 DATA 3,24,101,251,141,150,3,173,100,3,101,252,141,100,3,201,16,240,4
370 DATA 201,217,208,17,165,251,73,255,24,105,1,133,251,165,252,73,255,105,0
380 DATA 133,252,198,248,208,60,169,20,133,248,165,251,24,101,5,133,251,165,252
390 DATA 101,6,133,252,165,254,16,21,173,130,3,201,224,240,6,206,130,3,76
400 DATA 181,194,169,226,141,130,3,76,181,194,173,130,3,201,226,240,6,238,130
410 DATA 3,76,181,194,169,224,141,130,3,96,165,188,208,67,173,30,208,41,3
420 DATA 201,3,208,58,169,0,133,5,133,6,230,188,173,100,3,56,237,101,3
430 DATA 24,105,15,16,2,169,0,201,28,144,2,169,27,10,170,189,22,195,133
440 DATA 251,189,23,195,133,252,169,128,141,4,212,169,129,141,4,212,169,255,133
450 DATA 254,169,120,133,253,96,173,120,3,201,120,208,16,173,100,3,201,113,144
460 DATA 9,201,121,176,5,169,1,141,167,3,96,64,255,87,255,100,255,113,255
470 DATA 126,255,139,255,152,255,165,255,188,255,201,255,214,255,227,255,240
480 DATA 255,0,0,0,0,16,0,29,0,42,0,55,0,68,0,91,0,104,0,117,0
490 DATA 130,0,143,0,156,0,169,0,192,0,192,0
500 ML$="[162]"+CHR$(8)+"[189]<"+CHR$(3)+"[149]X[202]"+CHR$(16)+CHR$(248)+"L[191][163]":POKE835,0
510 POKE836,208:POKE830,0:POKE831,216:POKE828,0:POKE829,56:POKE56334,0
520 POKE1,51:ML$=ML$:SYS(PEEK(51)+256*PEEK(52)):POKE1,55:POKE56334,1
530 FORI=12568TO12671:READJ:POKEI,255-J:NEXT
540 FORI=12672TO12727:READJ:POKEI,J:NEXT
550 DATA 0,115,219,219,219,219,113,0,0,111,102,102,102,102,198,0
560 DATA 149,149,149,149,165,170,170,170,86,86,86,86,90,170,170,170
570 DATA 170,170,170,165,149,149,149,149,170,170,170,90,86,86,86,86
580 DATA 130,130,130,130,130,170,170,170,128,0,0,0,0,0,0,0
590 DATA 255,255,255,126,060,024,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
600 DATA 0,0,0,0,0,0,0,128,255,255,255,126,60,24,0,0,213,213,245,245,253,253
610 DATA 255,255,87,87,95,95,127,127,255,255,125,125,125,125,125,125,125,125
620 DATA 126,255,255,255,255,255,255,255,255,255,255,255,255,255,255,126
630 DATA 127,255,255,255,255,255,255,127,254,255,255,255,255,255,255,254
640 Q=14336
650 READB:IFB<0THENFORA=1TOABS(B):POKEQ,0:Q=Q+1:NEXT:GOTO650
660 IFB=256THENFF=1:GOTO730
670 POKEQ,B:Q=Q+1:GOTO650
680 DATA -25,60,0,0,255,0,0,85,0,0,85,0,0,20,-51,20,0,0,255,0,0,255,0,0,85,0,0
690 DATA 20,-51,20,0,0,85,0,0,85,0,0,255,0,0,60,-66,255,0,7,255,224,31,255,248
700 DATA 63,255,252,127,255,254,127,255,254,255,255,255,255,255,255,239,256
710 DATA 129,0,0,0,0,0,0,0,0,0,0,0,0,0,0,129
720 DATA 128,0,0,0,0,0,0,128,1,0,0,0,0,0,0,1
730 POKE53272,23:POKE53270,200
740 CL(1)=10:CL(2)=14:FL=0:RM=20:PL=2
750 FORA=54272TO54295:POKEA,0:NEXT:POKEA,15:POKE54280,17:POKE54284,18
760 IN=1:SK=0:CK=0:P1$="HOME":P2$="VISITOR":GOSUB770:GOTO860
770 IFFF=1THENRETURN
780 PRINT"[147]"SPC(6);:POKE53281,0:POKE53280,0
790 PRINT"[190][188][146]  [161][172][187][146][187] [172][172][187][146][187]  [190][188][146]  [161][172][188][146]  [161][172][162][146][190]"SPC(11)"[161][188][190][146][161] [161][188][190][146][190] [161]";
800 PRINT"[146][161]   [161][188][190][146][161] [161][146][161][161][146][161] [161][188][146][187]"SPC(12)"[161][146][161][161][146][161] [161][172][188][146]  [161][146][161][172][187] [161][146][161][161][146][161]";
810 PRINT" [161][146][161][190][146][190] [161][146][161]"SPC(13)"[188][190][188][190] [188][190][188][190]  [162][162][146]  [188][190][188][190] [188][162][146][190]  [188][162][162][146][190]"SPC(9);
820 PRINT" [161][172][187][146][187] [190][188][146] [172][172][187][146][187][161][172][162][146][190][161][172][187][146][187] [190][188][146] [161][146][161]  [161][146][161]"SPC(10)"[161][188][190][146][190][161]";
830 PRINT"[188][190][146][161][188][188][146][162] [161][188][146][187] [161][188][190][146][190][161][188][190][146][161][161][146][161]  [161][146][161]"SPC(10)"[161][146][161][161][146][161][161][146][161][161][146][161][172][187]";
840 PRINT"[161][146][161][161][146][161]  [161][146][161][161][146][161][161][146][161][161][146][161][161][146][161]  [161][146][161]"SPC(10)"[188][162][162][146] [188][190][188][190] [162][162][146] [188][162][162]";
850 PRINT"[146][190][188][162][162][146] [188][190][188][190][188][162][162][146][190][188][162][162][146][190]":RETURN
860 PRINTCHR$(14)""SPC(12)"[151][208]RACTICE    [198]1":PRINTSPC(12)"[208]LAY        [198]7"
870 POKE198,0:WAIT198,1:GETMT$:IFMT$<>"[133]"ANDMT$<>"[136]"THEN870
880 IFMT$="[133]"THENFL=1:IN$="1":GOTO920
890 C$="              ":PRINTCHR$(142)"[145][145][145][145]"SPC(12)C$:PRINT""SPC(12)C$"[145][145][145][145]"
900 PRINTSPC(13)"1[146] OR 2[146] PLAYERS"
910 POKE198,0:WAIT198,1:GETIN$:IFIN$=""ORIN$<"1"ORIN$>"2"THEN910
920 NP=VAL(IN$):POKE933,-(NP=1):PRINT"[147]";:POKE53280,2:POKE53281,1:TE=6:B$=""
930 POKE53272,28:POKE53282,3:POKE53283,0:POKE53270,PEEK(53270)OR16
940 W=1063:POKEW,160:A$=" [146]"
950 POKEW+54272,6:C$="[159]                           ":D$="            "
960 FORU=1TO2:FORI=1TO12:PRINTC$;:POKE646,TE:PRINTD$:SM=W+40*I:POKESM,160
970 POKESM+54272,TE:NEXTI:TE=5:W=1543:NEXTU:PRINTC$""D$""
980 PRINT""SPC(27)"            ":POKE1543,160:POKE55815,2
990 PRINT"1B [146]#$ 2B [146]#$ 3B [146]#$ 2B [146]#$ 1B"
1000 PRINT"[150]'('('('('('('('('(":PRINT"%&%&%&%&%&%&%&%&%&"
1010 PRINT""SPC(12)"  [157][157]  [157][157]  ":PRINT"[153][150]0"SPC(24)"1":Y=24
1020 X=1:FORI=1TO6:FORZ=1TOX:B$=B$+A$:NEXTZ:PRINTB$"0";:PRINTTAB(Y)"1"B$:B$=""
1030 Y=Y-1:X=X+1:NEXTI:PRINT"       [146]0"SPC(10)"1       ";
1040 IFFL=1THENPRINT""SPC(29)"PRACTICE":GOTO1100
1050 PRINTSPC(32)"[146]- .":PRINTSPC(31)"-[206][146]3[205][146].":PRINTSPC(30)"-[206][146]* [146],[205][146]."
1060 PRINTSPC(29)"-[206][146]*   [146],[205][146].":PRINTSPC(28)"-[206][146]*     [146],[205][146]."
1070 PRINTSPC(28)" 5"SPC(3)"[195]"SPC(3)"[146]6 [157]":PRINTSPC(28)",[205][146].     [146]-[206][146]*"
1080 PRINTSPC(29)",[205][146].   [146]-[206][146]*":PRINTSPC(30)",[205][146]. [146]-[206][146]*"
1090 PRINTSPC(31)",[205][146]4[206][146]*":PRINTSPC(32)",+*"
1100 GOSUB1600:IFFL=1THEN1220
1110 IFTEMP=1THENTEMP=0:GOTO1210
1120 IFOUT<3THEN1210
1130 IFNP=1THEN1660
1140 IFIN>=3ANDCK=1ANDS(1)<>S(2)THEN1660
1150 OUT=0:TEMP=1:POKEFB,32:POKESB,32:POKETB,32
1160 PRINT"[159]      CHANGE BATTERS":FORI=1TO1000:NEXT
1170 PRINT"[145]"SPC(6)"              ":IFNP=1THENCK=0:IN=IN+1:PL=1:GOTO1190
1180 CK=CK+1:IFCK=2THENCK=0:IN=IN+1
1190 IFPL=1THENPL=2:P1$="HOME":P2$="VISITOR":GOTO1100
1200 PL=1:P1$="HOME":P2$="VISITOR":GOTO1100
1210 IFPEEK(53250)>90THENFORA=PEEK(53250)TO90STEP-1:POKE53250,A:NEXT
1220 SYS49152:IFPEEK(930)THENPOKE54283,16:POKE54283,17
1230 IFFL=1THENRM=RM-1:PRINT""SPC(28)"PITCHES"RM"[157] "
1240 IFFL=1ANDRM=0THEN1690
1250 IFFL=1THEN1210
1260 PRINT"":KT=54272
1270 MT=PEEK(930):IFMT>4THENOUT=OUT+1:SK=0:GOTO1100
1280 IFMT=4THENGOSUB1580
1290 IFMT=0THENSK=SK+1:IFSK=3THENOUT=OUT+1:SK=0:GOTO1100
1300 IFMT=0THEN1100
1310 TM=MT:SK=0
1320 TE=160:ET=160:G0=CL(PL)
1330 A=2017:FB=1822:SB=1617:TB=1812:P1=PEEK(FB):P2=PEEK(SB):P3=PEEK(TB)
1340 GOSUB1510:GOSUB1530:B1=205:B2=206:B3=205:M0=A-39:M1=FB-41:M2=SB+39
1350 M3=TB+41:G1=5:G2=5:G3=5
1360 IFP1=160THENB1=160:G1=CL(PL)
1370 IFP2=160THENB2=160:G2=CL(PL)
1380 IFP3=160THENB3=160:G3=CL(PL)
1390 X=CL(PL):FORI=1TO4:GOSUB1530:GOSUB1570
1400 IFMT=4THENGOSUB1640
1410 POKEM0,TE:POKEM0+KT,G0:M0=M0-39:POKEM1,B1:POKEM1+KT,G1
1420 M1=M1-41:POKEM2,B2:POKEM2+KT,G2:M2=M2+39:POKEM3,B3:POKEM3+KT,G3:M3=M3+41
1430 NEXT:GOSUB1530:POKEFB,ET:POKEFB+KT,G0
1440 IFB1=160THENPOKESB,160:POKESB+54272,G1
1450 IFB2=160THENPOKETB,160:POKETB+54272,G2
1460 IFB3=160THENPOKEA,160:POKEA+54272,G3
1470 IFMT>1THENTE=206:ET=32
1480 IFPEEK(A)=160THENS(PL)=S(PL)+1:POKEA,43:POKEA+KT,5:GOSUB1590:GOSUB1600
1490 TM=TM-1:IFTM=0THEN1100
1500 G0=5:GOTO1330
1510 PRINT""SPC(33)" "
1520 PRINT""SPC(28)" "SPC(9)" ":PRINT""SPC(33)"+":RETURN
1530 PRINT""SPC(32);
1540 PRINT"[206][146]3[205][157][157][157][157][206][146]* [146],[205][157][157][157][157][157][157][206][146]*   [146],[205][157][157][157][157][157][157][157][157][206][146]*     [146],[205]"
1550 PRINT""SPC(29)"[205][146].     [146]-[206][157][157][157][157][157][157][157][157][205][146].   [146]-[206]"
1560 PRINTSPC(31)"[205][146]. [146]-[206][157][157][157][157][205][146]4[206]":RETURN
1570 POKE54273,40:POKE54277,1:POKE54296,15:POKE54276,128:POKE54276,129:RETURN
1580 POKE54287,40:POKE54291,220:POKE54290,128:POKE54290,129:RETURN
1590 POKE54273,70:POKE54277,41:POKE54296,15:POKE54276,16:POKE54276,17:RETURN
1600 IFFL=1THENPRINT""SPC(28)"PITCHES"RM:RETURN
1610 PRINT""SPC(28)P2$""S(2):PRINTSPC(28)""P1$"   "S(1)
1620 PRINTSPC(28)"INNING "IN:PRINTSPC(28)"STRIKE "SK
1630 PRINTSPC(28)"OUT    "OUT:RETURN
1640 POKE53281,X:IFX=1THENX=CL(PL):RETURN
1650 X=1:RETURN
1660 PRINT""SPC(5)"[159]G A M E  O V E R"
1670 PRINT"   ANY KEY TO PLAY AGAIN":POKE198,0:WAIT198,1:GETMT$:CLR
1680 POKE53280,0:POKE53281,0:PRINT"[147]":GOTO730
1690 PRINT"[159] P R A C T I C E  O V E R":GOTO1670